home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Languages / RA Folder / MemoryMgr.ra < prev    next >
Encoding:
Text File  |  1986-10-21  |  1.4 KB  |  105 lines  |  [THED/THTH]
  1. |
  2. |   RA™
  3. |
  4. |    MemoryMgr Samples
  5. |
  6. |   © 1986 COM~LINK & S.Koren
  7. |
  8. #M;
  9. #Z,†test†,†hello†,0 1 -,0 1 -;
  10. ! "!"
  11. #Z,†test†,†test†,0 1 -,0 1 -;
  12. ! "!"
  13. #Y,†test†,0 1 -; †† "!"
  14. #A;
  15. 2 A:   "Variable A is a pointer to variable C!"
  16. 0 C:   "C has 0 in it!" 
  17. #C,A;
  18. "After setting bit 3, C = " A.. ! "!"
  19. #X,A,3;   | set bit 3
  20. #C,A;
  21. "After clearing bit 3, C = " A..!
  22. "!"
  23. #W,A,3;   | clear bit 3
  24. #C,A;
  25. #A;
  26. "AND of 13 and 23 = "
  27. #U,13,23; E: E. ! "!"
  28. "OR of 13 and 23 = "
  29. #T,13,23; E: E. ! "!"
  30. "XOR of 13 and 23 = "
  31. #S,13,23; E: E. ! "!"
  32. "NOT of 13 = "
  33. #R,13; ! "!"
  34. "BitShift 1 3 positions = "
  35. #Q,1,3; ! "!"
  36. #A;
  37.  
  38. $
  39. &Q       | BitShift
  40. 1% 2%
  41. • 0A85C º ¶
  42. `
  43. &R       | BitNOT
  44. 1%
  45. • 0A85A º ¶
  46. `
  47. &S       | BitXOR
  48. 1% 2%
  49. • 0A859 º ¶
  50. `
  51. &T       | BitOR
  52. 1% 2%
  53. • 0A85B º ¶
  54. `
  55. &U       | BitAnd
  56. 1% 2%
  57. • 0A858 º ¶
  58. `
  59. &V       | BitTst
  60. • 0A85D º ¶
  61. `
  62. &W       | ClrBit Trap
  63. 1% 2%
  64. • 0A85F º ¶
  65. `
  66. &X          | BitSet Trap
  67. 1% 2%
  68. • 0A85E º ¶
  69. `
  70. &Y       | UprString Trap
  71. 1% 2%
  72. • 0A854 º ¶
  73. `
  74. &Z       | EqualString Trap
  75. 1% 2% 3% 4%
  76. • 0A03C º ¶ 
  77. `
  78. &A
  79. "!Hit any key: " ?§ µ @`
  80. |
  81. |  RA title routine
  82. |
  83. &M @ #L; 8 A: ( #N; A. 1 - A: A. 0 > ~ ) #L; #O; #P;`
  84.  
  85. &O
  86. 40 100 Ω
  87. "RA™"
  88. 60 45 Ω 
  89. "© 1986 COM~LINK & S.Koren" 
  90. 80 60 Ω
  91. "All rights reserved." `
  92.  
  93. &L
  94. 35 A: ("•" A. 1 - A: A. 0 > ~ ) "!"`
  95.  
  96. &N
  97. "•" 33 A: (" " A. 1 - A: A. 0 > ~ ) "•" "!"`
  98.  
  99. &P ?§ @ `
  100. &C   | dump 8 bits of byte 
  101. 0 A: ( 1%  A. #V; 
  102. B: B. 0 = ["0"]
  103. B. 0 = ß ["1"]
  104. A. 1 + A: A. 8 = ß ~) "!"`
  105. $